Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/XCMDS&XFCNS/Support Tools eXternals 1.2.5/Support Tools eXternals 1.2.5/background_3858.txt

Text File | 1990-11-14 | 9.0 KB | 413 lines

-- background: 3858 from stack: in.5
-- bmap block id: 4349
-- flags: 0000
-- background id: 0
-- name: Examples
----- HyperTalk script -----
on OpenCard
  put the number of cds of this bg into total
  put (the number of this cd - 1) into which
  put which & "/" & total into bg fld "card count"
  if the number of this cd = (number of last cd of this bg) then
    hide bg btn "next"
  else
    show bg btn "next"
  end if

  if the number of this cd = (number of first cd of this bg) then
    hide bg btn "previous"
  else
    show bg btn "previous"
  end if

  if bg fld "source" = empty then
    hide bg btn "source"
  else
    set the scroll of bg fld "source" to 0
    show bg btn "source"
  end if
  pass OpenCard
end OpenCard

on CloseCard
  -- make sure that the description field is always kept at it's
  -- smallest size
  if rect of fld "description" ≠ "258,116,509,336" then ZoomField
  set the scroll of bg fld "description" to 0
  if the visible of bg fld "source" then send mouseUP to bg btn "source"
  pass CloseCard
end CloseCard

on ZoomField
  -- resize the description field
  --258,116,509,336
  lock screen
  if the rect of fld "description" is not "258,116,509,336" then
    set rect of fld "description" to "258,116,509,336"
    set icon of bg btn "window zoom" to "to small"
    send "showObjects" to this cd
  else
    set rect of fld "description" to "25,116,509,336"
    set icon of bg btn "window zoom" to "to big"
    send "hideObjects" to this cd
  end if
  unlock screen
end ZoomField




-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=54 right=85 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 12011 / 12011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Source for this external not included yet."
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=246 top=60 right=84 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 1728 / 1728
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=284 top=60 right=84 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 1731 / 1731
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=87 top=54 right=85 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 300 / 300
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
  go cd 1
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=11 top=54 right=85 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  push cd
  go cd "about"
end mouseUp



-- part 20 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=258 top=116 right=336 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: description


-- part 25 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=194 top=60 right=84 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 1727 / 1727
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  -- pop a card, but only if the destination is within this stack
  pop cd into destinationCd
  visual iris close
  if destinationCd contains the long name of this stack then
    go destinationCd
  else
    go cd 1
  end if
end mouseUp




-- part 26 (button)
-- low flags: 80
-- high flags: 2001
-- rect: left=246 top=60 right=84 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 1729 / 1729
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  visual wipe right
  go prev card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=284 top=60 right=84 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 1730 / 1730
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual wipe left
  go next card
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=424 top=90 right=104 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 572 / 572
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: current font


-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=407 top=90 right=117 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Font Box
----- HyperTalk script -----
on mouseDown
  --395,22,468,51
  put item 3 of rect of me - 8 into hMax
  put item 1 of rect of me + 8 into hMin
  put "bg btn" &"e&"current font""e into scrollThumb
  put item 4 of rect of me -18  into Vert
  repeat
    set cursor to cross
    put item 1 of the mouseLoc into Horiz
    if Horiz > hMax then put hMax into Horiz -- don't allow to drag outside far right
    if Horiz < hMin then put hMin into Horiz -- don't allow to drag outside much
    put abs((hMin - Horiz - 9) div 19) into siZe -- change to ordinal
    show scrollThumb at hMin + (19*siZe),Vert-siZe*2 -- move to nearest size
    if the mouse is up then
      changeSize siZe                           -- change font as requested
      exit repeat
    end if
  end repeat
end mouseDown

on changeSize whichSize
  if whichSize is 1 then put 10 into changeSize
  else
    if whichSize is 2 then put 12 into changeSize
    else
      if whichSize is 3 then put 14 into changeSize
      else
        put 9 into changeSize      -- end up with 10 if error
      end if
    end if
  end if
  set textSize of bg fld "description" to changeSize
end changeSize



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=488 top=95 right=114 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 576 / 576
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: window zoom
----- HyperTalk script -----
on mouseUp
  ZoomField
end mouseUp




-- part 38 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=2 right=21 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: card count


-- part 40 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=49 top=54 right=85 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 263 / 263
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: report bugs
----- HyperTalk script -----
on mouseUp
  push cd
  go cd "report bugs"
end mouseUp



-- part 41 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=129 top=53 right=84 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 12012 / 12012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: source
----- HyperTalk script -----
on mouseUp
  if the visible of bg fld "source" then
    lock screen
    hide bg fld "source"
    set the scroll of bg fld "source" to 0
    ShowObjects
  else
    lock screen
    if rect of fld "description" ≠ "258,116,509,336" then ZoomField
    HideObjects
    show bg fld "source"
  end if
end mouseUp



-- part 42 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=7 top=91 right=336 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Source


-- part 49 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=331 top=19 right=50 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 15
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Title


-- part 50 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=347 top=47 right=79 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 15
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: expl